program loops
  
  var
    sum, i, n : int
    sumReal : real
    
begin
  sum := 0
  i := 1
  n := 10
  
  while i <= n do
    sum := sum + i
    i := i + 1
  end 
  
  sum := 0
  i := 1
  repeat 
    sum := sum + i
    i := i + 1
  until i > n
  
  sum := 0
  for i:= 1 to n do
    sum := sum + i
  end
  
  sumReal := n * (n+1) / 2
  
  Read()
end
